home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / e / AEPD25.lha / EPD25 / LiesMich.info < prev   
Text File  |  1995-05-28  |  1KB  |  41 lines
  1. -> rbf.e - Serial receive buffer full interrupt handler example.
  2. ->
  3. -> To receive characters, this example requires ASCII serial input at your
  4. -> Amiga's current serial hardware baud rate (i.e., 9600 after reboot, else
  5. -> last baud rate used).
  6.  
  7. -> E-Note: E does not (as of v3.1a) support Resources in the conventional way
  8. MODULE 'other/ecode',
  9.        'other/misc',
  10.        'dos/dos',
  11.        'exec/execbase',
  12.        'exec/interrupts',
  13.        'exec/nodes',
  14.        'exec/memory',
  15.        'hardware/custom',
  16.        'hardware/intbits',
  17.        'resources/misc'
  18.  
  19. ENUM ERR_NONE, ERR_BITS, ERR_ECODE, ERR_PORT, ERR_SIG
  20.  
  21. RAISE ERR_SIG IF AllocSignal()=-1
  22.  
  23. CONST BUFFERSIZE=256, NAMESIZE=32
  24. CONST ALLOCEDBUFFER=BUFFERSIZE+2
  25.  
  26. OBJECT rbfData
  27.   task
  28.   signal
  29.   bufferCount  -> E-Note: C version disagrees with Assembly handler!
  30.   charBuffer[ALLOCEDBUFFER]:ARRAY
  31.   flagBuffer[ALLOCEDBUFFER]:ARRAY
  32.   name[NAMESIZE]:ARRAY
  33. ENDOBJECT
  34.  
  35. -> E-Note: set-up "custom"
  36. DEF custom=CUSTOMADDR:PTR TO custom
  37.  
  38. PROC main() HANDLE
  39.   -> E-Note: to help with cleaning up, currentuser has been replaced by
  40.   ->         portuser and bitsuser, both initialised to non-zero
  41.   D